home *** CD-ROM | disk | FTP | other *** search
- 'Global declares and Constants for Visual Basic Labnote demos.
- 'Copyright (c) 1992 Jay Munro
- 'First Published by PC Magazine in June 16,1992
-
- '--- Interrupt function
- Declare Function Interrupt% Lib "Labnotes.DLL" (Registers As Any, ByVal IntNum%)
-
- '--- MKx$ replacements
- Declare Function MKI$ Lib "Labnotes.DLL" (ByVal I%)
- Declare Function MKL$ Lib "Labnotes.DLL" (ByVal L&)
- Declare Function MKS$ Lib "Labnotes.DLL" (ByVal S!)
- Declare Function MKD$ Lib "Labnotes.DLL" (ByVal D#)
- Declare Function MKC$ Lib "Labnotes.DLL" (ByVal C@)
-
- '--- CVx replacements
- Declare Function CVI% Lib "Labnotes.DLL" (I$)
- Declare Function CVL& Lib "Labnotes.DLL" (L$)
- Declare Function CVS! Lib "Labnotes.DLL" (S$)
- Declare Function CVD# Lib "Labnotes.DLL" (D$)
- Declare Function CVC@ Lib "Labnotes.DLL" (C$)
-
- '--- Variable segment and address functions
- Declare Function VarSeg% Lib "Labnotes.DLL" (Var As Any)
- Declare Function VarPtr% Lib "Labnotes.DLL" (Var As Any)
- Declare Function SSeg% Lib "Labnotes.DLL" (Var$)
- Declare Function Sadd% Lib "Labnotes.DLL" (Var$)
- Declare Function Seg& Lib "Labnotes.DLL" (Var As Any)
-
- '--- Inp and Out replacements
- Declare Function Inp% Lib "Labnotes.DLL" (ByVal Port%)
- Declare Sub Out Lib "Labnotes.DLL" (ByVal Port%, ByVal Value%)
-
- '--- Peek and Poke replacements
- Declare Function Peek% Lib "Labnotes.DLL" (ByVal Segment%, ByVal Offset%)
- Declare Sub Poke Lib "Labnotes.DLL" (ByVal Segment%, ByVal Offset%, ByVal ByteData%)
-
- 'To use Peek or Poke with the Seg function
- 'Declare Function Peek% Lib "Labnotes.DLL" (Seg&(Variable))
- 'Declare Sub Poke Lib "Labnotes.DLL" (Seg&(Variable), Byval Data%)
-
- '--- Common segment access functions
- Declare Function GetAbs% Lib "Labnotes.DLL" (ByVal Segment%)
-
- '--- Control handle to Window handle function
- Declare Function ControlHwnd% Lib "Labnotes.DLL" (hCTL As Control)
-
- '--- Windows API SendMessage function
- Declare Function SendMessage% Lib "User.EXE" (ByVal CtrhWnd%, ByVal Msg%, ByVal Wp%, ByVal Lp As Any)
-
- '--- Type Register structures for Interrupt function
-
- Type Regs
- AX As Integer
- BX As Integer
- CX As Integer
- DX As Integer
- BP As Integer
- SI As Integer
- DI As Integer
- Flags As Integer
- DS As Integer
- ES As Integer
- End Type
-
- '--- Windows Message constants
- Global Const WM_User = &H400
- 'Global Const WM_Clear = &H303
- 'Global Const WM_SetText = &HC
- Global Const LB_ResetContent = WM_User + &H5
-
- '--- Debugging routines
- Declare Sub MonoPrint Lib "Labnotes.DLL" (ByVal Msg$, ByVal Row%, ByVal Col%, ByVal Attr%)
-
-